* picture.el (move-to-column-force): If column is negative, go

	flush left.

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 7c0490b6d2e9155f47638fdb32e9fca86399cec2..b8a1ec0c5c2438d7f73ae50f9509014b690b5e92 100644 (file)
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -34,6 +34,7 @@
   "Move to column COLUMN in current line.
 Differs from `move-to-column' in that it creates or modifies whitespace
 if necessary to attain exactly the specified column."
+  (or (natnump column) (setq column 0))
   (move-to-column column)
   (let ((col (current-column)))
     (if (< col column)